home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 007 (1987-02-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 007 (1987-02-15)(Ossowski, Stefan)(DE)(PD).adf / C Compiler / test.s < prev   
Text File  |  1987-03-04  |  331b  |  27 lines
  1.     text
  2. main:
  3.     link    %a6,&-4
  4.     movm.l    &0x1000,-(%a7)
  5.     mov    &0,%d3
  6.     mov.l    %d3,-(%a7)
  7.     jsr    subr
  8.     add.w    &4,%a7
  9. L%0:
  10.     movm.l    (%a7)+,&0x0008
  11.     unlk    %a6
  12.     rts
  13. subr:
  14.     link    %a6,&0
  15.     movm.l    &0x1000,-(%a7)
  16.     mov.l    8(%a6),%d3
  17.     mov    &2,%d0
  18.     muls    %d3,%d0
  19.     mov.l    %d0,%d3
  20.     mov.l    %d3,%d0
  21. L%1:
  22.     movm.l    (%a7)+,&0x0008
  23.     unlk    %a6
  24.     rts
  25.     global    main
  26.     global    subr
  27.